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For nou From your 
reporter “MOU | 
in Zurina creecel. 


STRUCTURED PROGRAMMING 
CORE 
PROGRAN FRAMEWORK 


This article and concept 1 ۶ 
submitted bu Iris 16۳۱۳۵۱ 6۲ and 
follows the principles Gf the 
Etructured ۳ ۲ ۵ 9 ۲ 21171 ۲ ip ncertsz 
as outlined in ۳۱۱/۲6۶ ۲ لاه‎ ۶ rticles 
on the same subject. 


ADVANTAGES 


structure ror alt 


-a li£ztina of the First zz 

۳۲ ۲ ۷ * ۲ 8۸۳۲ Lines shows the lauout 
Of the main COMPONENTS of the 
Froaram 

-blocks Can be Located in a 

ع 2۳۱ ۲ number‏ ا یی 

-biocks always start at an ever 
hundreds position 

-r Eem Statements afe oniu 
required to inditate Etibroutines 
“Toft Other prosram indicators 
Can be incorporated in Pritt 
statements 

-nO danger of having ta ድ ክር ከ a 
- ۳۲ ۲ ۵ 98 ۲ 30۲ framework i EE faved 
amd used af a stërte program 
incorporating a saving routine 
end other standard routines 
STRUCTURE 


@-S9 program outline with gSosub 
£tatements 

10@-999 main program 

ieaoao-menu 

۶ ع ۲ 1 ؟ 6۱ ۳۲ لا 2 - 6۵ شا ۵ 2 


A framework for a ۳۲ 65 ۲ 2۳ ርርህ ዚጋ 
] ۵ 6۵۱ Like this: 


2 GOSUE MENL 
2068 SET UF DIM STATEMENTS 
15 GOSUE 1800 1۵۳ 11090 
geo FILL ARRAYS 

25 GOSUE 200 (fF 2100) 
SO INFUT DATA 

35 GOSUE See 

40 CALCULATIONS 

45 GOSUE +۵ 

o0 LPRIHT 

55 GOSUE Sed 

60 OTHER 

65 GOSUE ۵ 

70 CTHER 

ፇጅ GOSUE 700 

8@ SANE 

65 GOSUE 6۵ 

GO END 

SS STOF 

169 RETURN 

ess RETURN 

39S RETURN 

499 RETURN 

50893 RETURN 

69% RETURN 

799 RETURN 

899 RETURN 


THIS PROGRAM , AS YOU CAN SEE IE 
HIGHLY STRUCTURED AND CAN BE 
USED AS io a 

THE NEXT INSTALLMENT WILL 
OUTLINE A MENL. 


ee e 


ዘ SINCLAIR BUICKFIX 


One of the Zx&i ፤(ፐ=2ሯፎፎሯ፤ነ “ዴይ main 
faits 35 it’s 1 ከ፳53131ህ to make 
data tapes. Untit nou, whenever 
the Zxël wrote te tare, it wouid 
aluaus transfer beth the Batit 
Frogram and uhatever variables 
kad been defined. 

The followings two short MC 

۳۲ ۲ 0 9 ۲ 8072۶ wili altow uou to read 
Or write data anti. to Tape. 
Without affecting the Basic 
Program. The programs art hidder 
in the first Line Cf a Batic 55 
a REM statement and called fran 
within the asit Proaram by n 
USE command. The Programs Will 
transfer an arra or numbers or 
Strings to or fran tape. The 
arrau can have anu mame, SIZE 
and anu number of dimensions. 
There are of course fame setting 
UP and réettrictions to follow. 
First of all, the programs wilt 
ዐከዚህ trans fer 2 ۲ ۲ 5۱145 ۰ Second, 
the array ta be filled bu the 
Read Program must be the fant . 
£1ZE as that written to tart, 
Thifd, the REM statement halding 
the MrC Programs must be the 
first Line in the Basic program. 
And finallu, the DIM command to 
Set up the array must be the 
first command executed (Except 
for REM commands). ALSO, because 
it's IMPostibie for tuo arrays 
to be on the stack at the same 
time, onlu one arfayu can be 
Written or read from tape from a 
aiven Batic program. 

The follow): mg Listina ۶ ۲ 6 ا‎ ۵3 
be put into the Zx81 in the : 
order that they appear. Foaitou 
the Prompts. 

LISTING 1 
This 35 the basic Proaram that 
Will Load in the MIC hex» 6 6 3 ع‎ 

that follows. (rem has SQ FR s! 

10 REM 2 2 245۳ ۸۳ 9021 2 4۳ ۳9۵01 SA 
5 ۶۲ 2 2 ۵ 1 2 24 5 5 7 ۵ ۵ 01 2 4۳ PE 
95 01 2 245۳۳ 7۵ 9012 2 S456 2۵ ات‎ 1 
32455 7696 12 3۵45 5 ۵5۵12 HÉ 

200 LET S$£-'"Qizc456789nHBCDEF' 

110 FOR X=16514 TO 16502 
120 INPUT H$ 


150 FOR Z=Q ፐር 15 

160 IF ۳ ۷+11 + 5 (2+1) THEN 
GOTO 180 

2 ۰9 LET O6=42416+4(1-Y) 

15Q NEXT Z 

2 9 NEXT Y 

goo POKE x, D 

el8 PRINT Hs: '' p 

220 NEXT x 


LISTING Z 


Run program in ۲3 ۶ 1 ۳ 1 and 
enter the following hex Codes E 
gi a time 1€. ED , CD , ETC... 
key in the ENTER keu after each 
input. 
CD E? Oz GE PE zi ew FF gE ፐር. 
BS 20 FE i180 FE gn 10 4ኛ 253 AE 
ES 4E 2 CE SE CD {1F @3 C1 GE 
7S 61 20 F4 Ca 
CD ET Qz ZA 10 40 23 4E 23 ፊሮ 

co CE 35 ፎ= DE FE D3 FF 17? sè 
FS GE ወፋ ፎ5 IA OD DB FE 17? CE 
79 Va 3E FE 10 FS 20 Q4 FE SE 
Sð E4 SF CE 16 10 20 CE Ci ፎኔ 
75 E1 CE 1E d 


Now ao back and check that you 
have entered 1۲ the code 
correcttu. Line 18 of your 
Program should now comtain all 
forte of Strange words and 
£umbols, Ensure that Line i182 
remains intact. If iine 180 is 
OK. then MESES atl excert for 
Line 10. {Save to are MOUN ] 


۶1 ۱ ۶ ۱ 
demonstrat 6 ۲ the ۳ 23 
ጠጄ » 


ቲ 

The following fue Li 
€ -€ 

and Write Mer ra 


LISTING Š 


10 FEM (GF ORIGINAL IN LIST 1i 
go DIM GRIEG! 

SO FOR xsi Ta eee 

4@ LET Aixi=x 

SA NEXT Xx 

60 PRINT "START TAPE" 

ZO INFUT D$ 

89 LET Xx=LISF 18514 


LISTING 4 


10 FEM (CF ORIGINAL IN LIST li: 
geo DIM ጅ (=ሯፎሯሯ፤ 

SO PRINT “START TARE" 

40 INPUT T$ 

5Q LET xzUusR 16549 

60 SLOH 

ZO FOR ጆ=3ኋ TO 220 

2 ۵ PRINT EtXxi!, 


SO NEXT x 

ONE last note, the HIC Programe 
read and write to tape the ۶ 
way that tha Zx&Gi reads and 
Writes aoe Programs so the 
Same volume settings should wort 
With thes € ۲ ۲ ۵ 9 ۲ 61112 
(EXTRRHCT-MICROCOMPLUTIHG NAY ec! 





PROGRAM HINTS POKES-2068 


ATIC ATAC-INFINATE LIVES 


FOKE 36519, 
STOP ENERGY 


e 


DRAIN 


POKE 35353,0 
SABRE ULLF- REMOVE MONSTERS 


POKE 


20782,2260 


HOBEIT-&UERE RING TWICE IM EACH 


LOCATION AND 


IN FOREST 


-DON'T ANSWER GOLLUM 5 


RIDDLES 


-EXAMINE MAGIC COOR IN 
GREAT HALLS THEN OFEN 


-IN GOLLUM' 


CUNGEON ASK 


THORIN TO OPEN WINCOU 


FICK 


YOU UP THEN GO 





HARD RE 


ITEM: Millennia K Disc 
Drive Interface 
AVAILABLE: Ramex International 
Limited 
42942 Van Duke Rd.. 
Utica., Michigan 
458037 U.S.A. 

PRICE interface onty-g200,.00 
COMPLETE unit With 
interface, drive,power, 
and cabpices--$4-0.00 U.S. 

For USE with 2868 only! 

ACVERTIZED DETAILS: 

- SP-DOS operating sustem 

- loads 32K in 3 second 

- Stores &eoQOH on 1 disc 

- OCCUPIES 4K ram imini-dos? 

7.26 K main dos 

- software support-- 

- Tasword,Tesmerge ,Devpac, 
Masterfiie, ۳۱۳۱ 68۸1 1 1 

- Language support-- 

, - Disc Pascal, "C" compiler 

- first dist drive must be 

"QUAD" -36 TEI 
- discs Z to 4 can be anu other 
5۳ دا‎ 4 5 2 ۲ ۶ ztandard 

GENERAL 

I Waf sent the advert far the 

Ramex Millennia K drive by mu 

friend in the States and I 

decided to take the plunge. I 

Orderéd the full system $450.02 

With My Visa in mid-.une. Four 

WEEKES Later I decided to give 

Ramex a Call ta check on the 

۲ ۲ ۵ 3 ۲ ۶ 5 5 of MY order. To fu 

dismay. they informed me that 

Misa would not accept the 

Charges. But neither id Ramex 

83ሃፎ ME a call to inform me of 

this fact, I still wanted the 

Disc drive system, so I obtained 


the appropriate money orders and 
sent them off an Hay 3,125255, The 
Unit arrived Mau 31,1965. 

it cost me an additional $74. 
Canadian to aet the package 
Out of Customs, Cost todate far 
the unit-$./I2.CCKH. The 
Packaging wast excellent, Hid at 
10 Lbs it should be, The 
contents were: 1 interface 
fumcastedi. l cable, 2 disc drive 
and power suppiu Fullu encazed. 
i Millennia K operators manual, 
and 1 sustems disc. 

I opened up the disc drive 
6 3 : 1 ۲8 to plug in the interrace 
Cable and had to uonder which 
Uau to 6۱۱5 it in. Or course 
there uere no imstructians far 
this minor thing. I took a 
chante, piuaged it in and closed 
the casing. In order to make a 
valid test of the system and ta 
ensure that none of fu 
peripherals would interfere, I 
disconnected everuthing else. 
and plugged in the interface. 
The moment af truth! I placed 
in the Systems disc into the 
drive, Switched on the computer 
and then the Power supply From 
the drive. NOTHING HAFFENEL! 
Dizmhau---but wait. hou sillu of 
me. I have a Eomsuitch and the 
£&ttina uas of course on 
Spectrum. I suiched to 20868 and 
repeated the procedure. 

Ue Came the 2 iine copyright 
from Sinclair, then the drive 
Started up and presto. the 
Copuriaht af SF-BHOS. It works zo 
far. Evéruthing that wou da to 
be directed to the drive System 
35 fronted bu: FRINTHL1:. The 
Usual ۱۵ 2 3 , 5 2۶ ۰ ) 31 ۰. ete 
FOLLOwS. Sa I try the "CAT" 
function and up comes the 
Catalogue. 50 far 55 goad. 

The Obvious step next would be 
to format a new disc and fave a 
Program to 31, A box ofr 180 dizcz 
cost me a further $72. But I 
fkould now have an incredible 
5 million F of disc Storage! 

The following point form for 
the ۲3 ۸5۲ funtions (alil OF Which 
appear on the ፎሯፎ= keybtcard! are 
mw current Findings: 

COMMAND FINDINGS 

FORMAT -unfortunatel ud 
does mot work, but 
it May be a Fauity 
disc controlier 
chip on the 1۳ 6۲ = 
tate 

COPYSYS -this capies the 
SPOOS system onta 
a neu disc 
format is Part Ot 
its function and 
in this case it 
uorked. 

CAT -tatalcoaue or 

directory 

SANE —came af Batic 

and wou can auto- 
run pragrame 


LORD “Same a: Basic 
) 0 2 1 ۵ , ۶ ۳۶ ۶۲۱ ۰ cade, 
etc...) 

ERASE ~EraSE a File or 
Program from dif. 

MERGE -&aine as Basic 
But auto-run 
Proarams Will not 
be stopred. 

MONE -Ueted ta change 
File names or disc 
and to trans fer 
Proarams Fram one 
disc ta another 

There are many more instructions 

and variations and they all work 

the Same as anu top of the Line 
computer such as IBM, anty in ጠህ 
unbiased Opinion-BETTER! 

Note: Z dos systems available 

that reside in different places 

£0 that uou can aet around same 

Of the pProaram toading and 

Saving problems. 


FINAL ANALYSIS 


COST: mau be tan high for most 
2088 owners 
1f ۱ ۶ ؟ #۸ لا ۳ 1 7۸۲۲۱۵۲۱ 6۰۲۱ 1 ؟ ۶۲۱ ؟‎ 1 ۷ 
Of massive data bases if 
important then this May 
Stitt be cost EFFECTIVE 
HARCWARE QUALITY: 
AS the interface casing 
has not uet arrived- 
no comment 
Th& interface itself is 
Of high Quality With all 
5 6 ۲۷ ۶ + و ع‎ chips and no 
۱۱۲۲۱۳ ۶ ۲ Wires 
The drivé and Power supptiu 
are excellent Quality and 
function 50۱6 ۳ ۱4 ۰ 66۱۷4 , 1 6 
a bit noiselu. 


averal s ኤምኤ ን 2 s 


Proleto onai Layaut anc 
Presentation gets YOU up 
and running, but a Lesson 
in user Friendly could be 
of Some he LP. 
some program examples and 
the SPDOS disassembly would 
be of Great benefit toG 
5 ۶ ۲ ۱۷۱ 5 ۰ programmers 
DEALER SUPPOR 
Membership available 
For dos system from 


T 


Eritain-$1i1& onetime fee + 

ቁ== for one wear. 

I wrote to Ramex about 

the cating, format Problem 

and the possibilities Of 

a Spectrum "fix". but I 

have not received an 

answer as uet. Patience! 
COCUERALL ASSESSMENT: 
; As a novice in the harduare 
field as weil as a budding 
Programmer and Editor of the 
TEUG OTTAWA Nevstetter and other 
articles far other "raas", I Cari 
ontu offer mu novice orinion. 








In this case, I am aivina 
the system mu fut! support! Comet 
not Withettanding, the unit werke 
a= advefrtized if met better, and 
the qualita or the product is 
excellent. Hs soon az I get ጠኒ 
anzuerzs from ኮ3ስጠፎ። I Will convewu 
theEze to uou as Well. 

Excellent system! 
F.H ህዚወዴቦ Editar 

Well here I am again arid QUES 
What? You fre right, no input 
2 5 2 : ۲۱۲ Forth must have died. 
Well for pozteritu sake UP anid 
at ther! 

Ck, error correction first, if 
نات نا‎ had put in the first EC FEER 
az i£, compiled it and tried tc 
Load the tuo arrays COMPUTER and 
PLAYER and then tried a CONFRAE. 
You Should have gotten an error 
Code ziating that the word 
COMPARE had rot been derairned. 
That's Odd uou sáu, after 
۶ ۳۲۱۳ 1 ۱3 ۳۵ uou did a LIST anes 
COMPARE was in the dictionaraü. 
Eut did uou do a PLIST arter Sou 
had Loaded the z arrays? Tru it! 

What uou szhosid find is thet 
COMPARE has disappeared. The 
ን Word ARRAY takes a 

Umber from the stack and aliate 
memori Spaces the ይ=ጠፍ as the 
Bazic statement DIM does, The 
Cnlu difference 35 that ARRAY 
USES Z butes per number and 
therefore requires tuice the the 
Size actuallu needed. 

The ۲ ۶ ۸ 2 ۲ that the COMPHRE 
Word 3 2 2 ۲ ۲ ۶ 2 ۲ نع‎ is that when 
You Loaded the first two affsi:=. 
YOU ovEruUrate the third, Tame iu. 
COHFARE. 

Hou go back to screen Hi and 
replace all the 4 ۶ For the 
arrauz to £ SS, And while wou ETE 
at it change the Fallowing Lines 
to fead 
€ : IWFUT.COM E 2 DO I 7 RND 

SWAF COMPUTER ! Lone ; 

14 : INFUT,FLAY 5 1 DO ECHECE I 

PLAYER ! LOOP 1 TRIES +! ; 


SCRRe 


OQ i SCRRe GF FORTHHIND ) 
ይ VARIABLE HRONGC.MATCH 
3 : ONE-CK 5 3 DO COMPARE ይ 1 = 
IF INDIU.MATCH 41 ENDIF LOOF , 
2 : ALL.CK INDIU.MATCH ë 
WECNG.MATCH ወ + ANV MATCH ! ;፤ 
WERONG.UCK € 1 DO I COMFHEE ë 
a= ፲ኛ £ 1 DO J CUP FLRHYER ë 


(a 


4 SWAF COMPUTER ይወ = IF 
WRONG.MATCH +! ENDIF LOOF 

5 ENDIF LOOF ; 

e 

> 

e Sorru that’s all fer 

= nou! Publishing tame 

2 ۵ Prey rent £ continuina 

11 this screen. 

14 

1E a» 

The next best thing is for 
uou to tell me what would 
Logicalilu come next, that is 
if uou are up to it. 

I did mot include the descr- 
iPtion of what the above does. 
It should be abundantly clear. 

Until next time +aFORT H+3+#+ it 


UP! 
THE EDITOR 


PERSONALS 
ADVERTS 


WANTED 


MEMOTECH - Sz OR 64 K MEMOPACH 
MEMOTECH - MEMOCALC 

T75 1080 

PHONE ROGER GLOVER 826-2818 


COMPLITER SAIL 
APPLE COMPATABLE 64K DISC DRIVE 
SOFTWARE: PASCAL ,FORTH. HOME ACC. 
CHEAF +4++$50Q3, >+ > 


RACIO SHACK MC1@ COLOUR COMPUTER 


SERVICE MANUALS , USER BOOK 
CHEAP +++$508. 454 
CALL VIC : 524-5734 


E 


s 
20 
25 
3e 


NOT L 
THE MYSTERY PHRASE” 
INPUT 


REM HANGMAN 
GOSUB 375 
LET R=@ 
za AT 1Q,Q; "TELL EVERYON 
OOK WHILE YOU TYPE IN 
A$ 


CLS 
GOSUB 375 


NEXT : 
PRINT AT 18,8; “GUESS A LETT 
DIM ES TE! 


H 
ኻ 
D 
ዘ 


199 
o 
ue 
*XnemmBpx ዘ li 


xT 
IF ۳-1 THEN GoTo 210 

LET Z=Z+1 

LET F(Z} =E %* 

PRINT AT 20 , 2 ۳ 8 1 

GOSUB 2357318«R 

LET R=R+1 

FOR x=1 TO B 

PRINT AT 8,X;D$IX); 

IF D£-C4X THEN GOTO 368 
PRINT AT 7,16; "I" 

ET ሆያ 
PRINT AT 8,15; “ dik 

PRINT AT 9,15; "Red 

RETUR 

PRINT AT 180,16; 7 

PRINT AT 11.13; 705 
PRINT AT 12,13; | MÉ d 

ET ۳ 
۲۶ AT 53 , 5:2 : 8E Š 6 
PRI AT 14,15; "RF ۳ 
PRINT AT 15 ر‎ 25 : “ሽ 8“ 

PRINT AT 16,14; ‘all سس‎ 
PRINT AT 5,10; “YOU Lose’ 
PRINT AT 8,4; "THE CORRECT P 


AT 11,15-IN]T BA; C$ 


PRINT AT 18,432; "YOU WIN" 
PRINT AT 2,7; di nn 


oed - ቨ ንን ee bs zt ul ^ i ሀ1[፲ 
n. ech --. Hino ዘ1-- ۱۱۱ KE ou u.i ፦ mak ፲ ሂጋ 
1. 21 Fe AT Ud 1 4.11... 2. ao تلا‎ ۱۱۸۱۲۰ 
ሂቨ wi jp att -F EL = þe FY peaca FEE . kb gà Hi 
*ቶ UJ SO ۱ °» E iT uc C ሀ1ፎ FIC 
at 1 14 ፦ ”.> ፲1 52. --- EE ۳ aL. T: ዜ rab Ge C3 
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is ped: kai ape pul له‎ T Û OQ ህ1 01. bru e 
MIN ጻታ ” ” ...... hi I l 8 Kaka LE ፦ ሯ=ሯኀብ F- at te PA C 
= ti — ul T 2] ui CP I ከ1 (፲ 41. Se ایا لا ۱۱۳۱ هت‎ 
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SAFE PLACE ፐ= A LOL WALL BEHIND 
WHICH YOU TAKE COUER," 
EGZ PRINT AT S.Q; INK 3: PAPER 
ره‎ YOU MUST TRY TO KILL ALL GUHH 
EH BY AIMING OUER THE TOF GF TH 
E WALL. BIT THE SNIPERS ARE Gul 
TE GOOD SHOTS! AT 16,08; "HOW LON 
G ርካ YOU SUÜRUIUE?......"7 

EBE LET F$£-cHES ZSI+CHR$ 21-4" 


“ታርክቫኮቕ 
El+CHE$ © ; 
Gi0 LET G$£zcHES$ zZI+CHRS$ i+" E 


"-C 
HAE ZSI+CHES$ ë 
535 FOR xz TO 7: FOR wel TO 9: 
EERHD A: FORE USR CHRS (dager) 2X 
, ۳ : NEXT Y: NE; XT x 
EzO FOR x=@ Ta 7: READ A, B: FoR 
E USR ۱. +X A: PORE USE DA A ÉE: 


HEXT X 
ESE FOR xzi TO il: READ Líx,ii: 
PORE 


HERD Lix.2:: NEXT X 
EGG FOR لاحم‎ TO 7: BERL A: 

USR "L'"4x,H: NEXT x: LET Wea" L LL 

LLLLLLLLLLLLLLLLLLLLLLLLLLLLL'" 
648 LET TA=-'ABIU+FS+ DEF +F وه‎ + E 


E4S LET 5 11 ="GH": LET لت‎ 2۱ =" 


ESÈ FOR xzà TO 7: REAC A: FORE 
[1551] .بح , زب‎ HEXT A 

655 For x=@ TO 7: READ ALB: FOR 
E USE "۳۳ + :بر‎ FORE USR “504x, B: 
HEXT X 

ESO FOR x=za TO 7: READ A.B: FOR 
E USR "Tu +X ñ: POKE USR "LI" +X B: 
NEXT X 
665 LET G$=CHES$ IG+CHR$ G+CHES 
17+CHES$ 44° “+GS$+ ' L' +GS$+”H”: LET 
۳۲ 5 2 ۷ 


x < 1 € ÒD = 
T IME Q; PAPER 4:64 


EVE LET F. $=” H $ 16 +ሯ THRE G+CHES 
TO+CHES dt TUGRA U" 4E T 

EVE FOP xzi TO &: READ Bix, 11: 
READ =፤=፳.,ሯፎ)] : NEXT X 

See: FUR Kel. Tū S: FoR =: 
RESI Píx.v1: b ide x x 
ESE INPUT INK ፕሮ; PAPER zm; ‘PRESS 
(ENTERITO FIND OUT!" xx 

"OC REM FPR INT SCREEN 

TES CL : FR T FAFER ©: IWE l; 
"£& HM E 0 = H B19H9$3S MICHAEL FEL 
i 


zc 


TAT FOR x 


Be Be cur INK @ PT 15,8;,T$;AT i 
T$ 
O PRINT INR G;AT 14.0; h 
e PRINT AT 15,180,083 
FE INT RT 15,223; INK 8: PARE 
T “TIME. 
FRINT AT 22.6, PHPER E; INF 
‘SHOOT SHIPPER: FIRE. 
RIGHT JOYSTI T9 AIM & FIR 


^J 


ገገ 00 -13- -4= دم‎ 


፲] 


ሀበ -( m 
IT” 


mc 


mao ርነ ርን ርበ 


AT 28,6: FLASH 4: "YOU HAIE 
BEEN SHOT: IW TIME:"';tm.AT 21.8 
, THIS IS THE SNIPER WHO SHOT YO 


ተ 
E32 PRINT men 2: PAP 
E 


ክን ኪን e a‏ دم 


548 REM +ALL SNIPERS DEAD 
250 IF TE:TM THEN LET TB=TH | 
ES 9 PRINT AT 28,08; PRAPER 7, INR 


“TAT 28,8; FLASH 1. “ኘህ SHOT 
THEH ALL IN TIME: ITA T 21,8: ° 

EEST TUE 50 ጾጸ:”;ፐ 
BEY FOR vol TO S: FOR a= 
: BEEP .Q05,»xxz: NEXT =: HEX 
E60 INFLIT INE Q; FREER 7; i H 
1; "PRESS <ENTER: FOR NEST GHHE' 


8790 LET Mex =88: LET ዞክቓ=”ፎፎፎፎፎፎፎፎ 


COD: LET MN=@: LET FR=6 
GE GO TO Fee 

996 STOF 

SOG KEM +#+TREE 


1600 DATA 2,15.8,1227,255,252,8.6 
O.6,3,6208.192.82,2585,165,.0,68.8, 
15,255,240,t55,247.,242,0,060,122,21 
= , 255 4 EAS t ci 4 ۳ > ፡ፎ4ፋሮ 3 a a 60 E 40 2 ize 4 
255,126,531,68,240G,0Q,608,15353. 127 = 
,e52,0,060,0,0,560,160,127.,Zz22,2B5r 
.6,60,0,0,608,32 


Mn E 


1008 FEM #SNIFER _ 

1616 a ما‎ , መጅ, ,52., ፎ5ኛሯ፳ሯ.ፎ, 4ፎፋ,2,ፎ 

ee .8,124,1,252,1,124,5,68 

1019 REM iTREE PRINT AT FILE 

1620 DATA 2.,4,1,18,323.,6,2,20,2,.,24 
+. ii, 4, 259,.6.180,6,15,7,21,62,26 

1 25 REM ]لاد‎ 5 

2 ر عم , 255 , 9۵ 21 , 255 ر 53 DATA‏ 1638 
à 183. 255‏ 

1039 REM #MAN CROUCHING _ 
1646 DATA 240,113,113,33,255,112 
iei REM +MAN DOUM 

1658 DATA @, Pi e&.,0,0,0, iec.8 

edviee4,255,.e41, Ba 9657 

1058 FEM HAN STANDING 

1060 DATA z45,115,113,255, 115, 22 
4.5 118 , 255 , 265,252,250.2= ,254,247 
. 112,255 
1066 FEM +SNIPER PRINT AT FILE 
16076 DATA E ۳ :2;48,6, 15.9.2215; 12 

26 

1072 REM +SNIFER FIRING COORDS 
1858 DATA 47,127.10, 50,54,79,110 
.399,70,37,119,118,68,68,37,167,1 
ðZ, 127.80. ፎ=,ሯፎ57,4.,2ፎ5 , 12,21 | 
4000 BORDER 7: FAFER 7: INR ፳ኛ: Ü 
LS 

9000 SOUND 7,.62:;6,16;12,20,15,08: 
FOR rz&ee TO Tl STEP ይ: SOUND ۵ 
f: NEXT የ: RETURN 


1 REM ZXB1/T51000 PROGRAM 
592 REM STOCK EROKER 
20 GOSUB S900 
LET R$2"STOCK BROKER" 
GOSUB ይወይው 
@ PRINT AT 5.2; “SELECT: "; AT 
2;“1)ADD A NEU STOCK? SAT 9.2; 
2) CHANGE n STOCK ON FILE?";AT 1 
, 2: "3) SAVE STOCK DATA?“ 
70 GOTO eS 
t110 AND R: 
AND ጸመ) + (2000 AND 
5 REM EB Ez 


ይኔ 


pa 


F) + (1000 







94 GOSUB 53080 

95 LET R$-"STOCK 

ወይ GOSUB 650660 
INPUT R 

LET Ré="NAME OF STOCK" 

GOSUE Ere 


TE INPUT $ 
(RI) =(LEN RF መ... LEN R$ 


NUMBER” 


LET Yt 
‹536) 6 AND LEN R$»185 
10 LET ۳ 5 ۳۲, TO 18 iE 
s 11 PRINT RT 7*2z2R,3; REER, 


115 GOSUB 5680 
128 INPUT ይቁ (5: , 25 TO 23) 
et PRINT AT 7*22R, 22 6 )۳ , 26 T 


127 GOSUB 8695 
129 INPUT AS$(R,25 TO == 
ase PRINT AT 7*2*R, e; ASIR, eo T 


) 
1 32 GOSUB 


TO 2 


0 








R 
14320 GOTO 4131۳5 4+ 28 AND 


10708 LET R$=" CHANGE AN EXISTING 
| STOCK" 


ር) 
1872 GOSUB 8000 
1873 GOSUB 83500 . 
1074 LET R$-"STOCK NUMBER" 
1875 GOSUB 6060 
1877? INPUT U 
1078 LET ። ወ... TO Y ۱۵۶ 2 
1879 GOSUB 500 
1050 PRINT AT Š, وف‎ "SELECT: "¿FT 
23; ጊ3 MAKE AN ÉNTRY?":RT 9.3; "2 
) CHANGE DELETE AN ENTRY?"; AT 11 
رت مر‎ 3) RETURN TO MAIN MENU?” 
42525 INPUT R 
1055 CLs 
18958 GOTO 19 5 + ) 16 AND R=1) + 185 
AND R=2) - (1035 AND R=3S) 
1935 REM 





1100 LET ፍ=”” 
GOTO (12125 AND Uz1i) 

Vee) + ) 25 ۸5 AND LU=S) + 4 

Ved) + (1565 AND 


GOSUB 5500 
1306 IF N=M THEN GOTO 11655 

FOR X=F TO 2 

42 PRINT AT 19,.0;X 

FOR Y=4 TO 4+52 ۳ tX) ZUAL «ቅ 





+ (1430 A 
1720 AND 






feb شم شم‎ fab ف شم ہے‎ jwè fot 
pa 
በን 
በ 
~ 
Q 
ኪነ 
On 


X) #G7UAL R$(1 20 TO 23); 
SCROLL 


RO 
GOSUB &&80 
PRINT AT 21,31; 
NEXT X 
LET N=N+F 
LET U1ztN AND 


GOSUB 6765 
INPUT NtU1) 
GOSUB 8695 
IF N»G Mis GOSUB 5 


N«zt3) +(G AND 


,U0;N 

Y=4 TO 4452eA(Ui) "URL A 
25 TO 28) 

PLOT Y,4 
NEXT Y 

LET Ré=zSTR$ NWI) 

GOSUB 6715 

PRINT AT 19 , ۲72 RIVLI),;AT 19 
l) #GzZUAL AsLi, 20 TO 23) ;B$ 
SCROLL 

PRINT AT 21, 

IF N>F THEN SOSUB 5100 
GOSUE 8500 

GOSUB 8360 


jh دم‎ pob در در‎ pab AR فم‎ fat fat ኑ። هر دز در هر‎ ፖ هر هر‎ pwè pwè دزد‎ ZE pò 


ቢነ ሯ I0 ۱۵ ۲۵ ۲۵ ۲۵ ሥ TOTO TOTO ቢነ E ኑ። pa w fot ኮሖ pad pt ኑሖ ኑሖ ou 
5-0900QUPBPIUIP دم‎ 6۵ Q چا‎ 0( 0( 7 00 00 0( JO 


SCUNPAU~ OOO NO 6 ۵ Y~“ 0 (N O ۵ ال‎ 
ki 
ዴ 
EE 
D 
£ 


jan 
ቢነ 
ዬ 
Ul 


pa pa pa pa 
ቢነቢንቢንቢን 
OO 
ede 





GOTO (1155 AND ۳ 5 < ۷۲۳ + 4 5 ۵ 
AND R$z"N' | 
14270 REN ۳ ieee 





TO Y tU») 


ሀ ;=3) + (2120 A 
U=3) + 


1272 LET Réè= Dio ai 
1274 GOSUB 858000 
1275 GOTO 11300 AND 
ND U=s2)+(220C@ AND 
Uz S) SES ድር] AND Uz5 





(2295 AND 






NPUT 
1330 6 R=F) + (21 


AA ۲ 22 ( + (356 AND ۳۶ + 4۵ AND R= 
GOSUB 8520 

GOTO 56 

GOSUB 0 

GOSUB 8680 


INPUT Ak Ae 28 TO 23) 
GOTO 107 m 


GOSUB 9 

GOSUB 8695 

1347 INPUT ማቹ (ዮ,ወ5 TO 28) 
GOTO 1078 

GOSUB 5000 

PRINT AT 4,0; "EH EEP 


7 እም TO Wi STEP 2 
1388 PRINT X:;TAB S;A(X);TAB 10;N 












(X);TAB 15; X*F; TRE 20; A(X+F); > TAB | 


ASÈ N (X+F) 
SSS NEXT x 

GOSUB 6750 
INPUT NCR) 
GOSUB 5750 
INPUT ACR) 
ER 10785 


GOSUB 8815 






8; 

Y=4 TO 4753 zB Ox) ZVAL As. 
(2,25 TO 25) 
1460 PLOT ven 
1465 NEXT 
1466 LET RE=STRS P (X) 
1467 GOSUB 5715 
ZÒ PRINT AT 19 ر‎ ۲ Z2; B(X) ; 
JEGZUAL 65 )2 ر‎ ۵۵ TO 23) 
o SCROLL 
GOSUB 8815 
PRINT AT 21,352; 
NEXT X 


LET P=P+F 
LET W2=(P AND PczG) ተ(ዳር AND 


GOSUB 5765 

INPUT መ 

GOSUB 669 

IF P>G THEN GOSUB 5575 
INPUT B tue} 

PRINT AT 21,68; W$ 

PRINT AT 19.0;P 

S25 FOR Yzs4 TO 445225 (U2) /VAL n 
8 ) 2 , 25 TO 28) 

1530 PLOT ۵ 

1535 NEXT Y 

1536 LET ር ው P (Wo) 

1537 GOSUB 8715 

1540 PRINT AT 19 ر‎ ۲ 72; B (U2); AT 19 
a PS r Astè, ea TO 23);Bsi 


a 21,31; 
1555 IF ۳۳۴ THEN GOSUB 2590 
1568 GOSUB 6515 
1565 GOSUB 86362 
1570 2912 £1495 AND R$="Y") + (50 






1550 GOSUB “3525 

1585 IF @=M THEN GOTO 1640 
1598 FOR X=F TO WS 

1595 PRINT AT 19,0;X 

1608 FOR Y=4 TO A452zC (X) /URL 
(3,25 TO 2B) 

1685 PLOT gon 

1618 NEXT 

1611 LET Ré= STRE tx) 

1612 GOSUB 6715 


SC L 
GOSUB 8825 
NEXT x 21,31; 


LET O=6+ 
LET ህ3= (0 AND Q«zG)4(G AND 


سسا — 


ns 


1 
ہے 


GOSUB 8765 

INPUT GS) 

GOSUB 8695 

IF Q»G THEN GOSUB 65895 

INPUT CtWS) 

PRINT AT 21 ر 2 ر‎ Us 

PRINT AT 19.0; ° 

Q FOR 24 TO 4+52 2C (W3) ZVAL A 

4 58. es TO 28) 

1675 PLOT Y,4 

1680 NEXT Y 

1681 LET ۳ 9 ج‎ 5.۲ ۳ ٩5 OCHS) 

1 55 GOSUB 5 5 

1665 PRINT AT 19,Y72;C(W3);AT 

REK a aka A$+ tè, 26 TO 23);B 
e 


SCRO 
1,351; 
IF ®>F THEN GOSUB 2550 


19 


PRINT AT 






M 
GOSUB 68535 
IF S=M THEN GOTO 1785 
FOR X=F TO 4 
PRINT AT 19,0; x 
FOR ኘ=ፋ TO 4+52xD (X) ZUVAL 


PLOT 
NEXT 
LET R$=STR$ SX) 
GOSUB 5715 

PRINT AT 19,Y72;D(X) 
2፡6 accor A$ (4, 28 TO 23) 


Af 


>AT 219, 
Bt 


o 
9 


LET 5 <5 ۳ 
LET Wé4=(S AND 5 4 ج)) + ( )اج‎ AND 


GOSUB 5 
INPUT S(W4) 
GOSUB 8695 
IF S>G THEN GOSUB 8915 
INPUT D (ህ4) 


xT Y 
LET R$= STR S (Wa) 
GOSUB 8715 

ወ PRINT AT 19,Y/2;D(U4);RHT ۵ 
ina ا‎ ka A$ (4,28 TO 22);B£f 
1855 SCROL 
1840 PRINT AT 21,31; 
1845 IF ۳ 525. GOSUB 2600 





GOSUB S545 
IF T=M THEN GOTO i930 
FOR X=F TO 5 

PRINT AT 19,0;X 

18 FOR Yz4 TO û +52 xE (X) ZUAL A$ 
(5, 5= TO 28) 

1 5 55 PLOT A 

4900 NEXT 

42322 LET RS=STRS T (X) 

1982 GOSUB 8715 

4905 PRINT AT 29,.YZ72;E (Xy AT 19, 
ፕ (X) £#aGZUAL AS(5,20 TO 23);B55% 
1910 SCROLL s 

1915 GOSUB 8845 7 


መመ 


کس 





965 
1970 
1971 
1972 
1975 





KRENT HI 23:91; 


NEXT 
LET TeT+F 
LET WS=(T AND T«sG) + يب‎ AND 


GOSUB 5 

INPUT T CWS) 

GOSUB 8695 

IF T>G THEN GOSUB 8935 
INPUT E (WS) 

PRINT AT 21.0;U$ 

PRINT AT 19,0;T 

FOR Y=4 TO ፊ+525%ጅ (US) UAL A 


5 
(5,25 TO 28) 


PLOT Y,4 

NEXT EL 

LET R$= SISS T (WS) 

GOSUB 8715 

PRINT AT 19 2¥ 72; EUS); AT ig 


፡... ብ... ጸቁ (5. ee TO ፎ3)7 ፡53 


2075 
2 2 


START RECORDING. WA 
Due AND THEN 


AND R=2) +(38 AND Rz 


2130 
2135 


65 


a 
ፇጅ 


“fl ۷۵ 


ኑ ከ) 3 pp fb pt po pò pè 


oo 


NN 


2 R=2) + (38 AND 


SCROLL 
PRINT AT 21,31; 

IF ۲۰۳ THEN GOSUB 2650 
GOSUB 6645 

GOSUB 6360 

AND R£z‏ د 
LET R$= “SAVÉ STOCK DATA”‏ 
GOSUB 8000‏ 
PRINT HT 10,‏ 


"Y"U)4 ) 5 





IT 18 SECO 


PRESS ““ENTER”” 
INPUT R$ 
SAVE “STOCH 
GOTO Sé 
REM Pilz" 
GOSUB S560 
INPUT R 
GOTO 21204(10 AND R=1) +(22 
3) + (48 AND R= 






GOSUB 8560 
GOTO 50 

GOSUB 9 

GOSUB 85580 

INPUT asta, 28 TO 23) 
GOTO 107 

GOSUB 2696 

GOSUB 8695 

INPUT aste, 25 TO 26) 
GOTO 107 

GOSUB 5066 

PRINT AT 4,0 EDS 


EFL. 
FOR XzF - TO W2 STEP 2 
PRINT X; TAB S;6(xX);TAB 10; 


TAB 15; X+F; TAB 20; B(X+F); TAB 
5; P (X+F) 


NEXT X 
GOSUB 8750 
INPUT PR) 
GOSUB 8780 
INPUT BAR) 
GOTO 1878 
REM 
GOSUB 5222 

INPUT R 

GOTO 2215+(1@ AND R= 






4) +f2e 


OTO pc 

GOTO 

GOSUB “8000 

GOSUE 0 

INPUT as jwe 20 TO 23) 
GOTO 16 

GOSUB 3090 


| GOSUB 8695 ገዜ ی‎ asé 


@; “REWIND TAPE, - 
KE 


R=3) + وی‎ AND R=. 


` B247 INPUT A$13,25 TO 26) 


2250 GOTO 1878 
2255 GOSUB 85000 | 
2260 PRINT AT 4,03" 


2265 FOR XzF UO WS STEP 2 

227a PRINT X, TAB S;CIt1X);j TRE 10; © 
(X), TAB 15; X*F; TAB 29 : C(X+F); TAB 
2 5 . (X+F ) 

Š NEXT X 

GOSUB 6750 

INPUT ፎክ (ኮክ) 

GOSUB 5780 


M 
۱ 
LAG. 












GOSUB S500 

INPUT R 
GOTO 23104t(10 AND R= 

E R=2) + (30 AND R=S) + (48 


GOSUB 85990 
GOTO Se 

GOSUB 0 

GOSUB 2 

INPUT ዳር. ሺ ee TO 23) 
GOTO 167 

GOSUB 56፡0 

GOSUB 86935 

INPUT A dn 25 TS 25) 


GOTO 1078 
"BEES ۰ 


xt TO m STEP 2 

2 565 PRINT TAE JOXI ۲۳۵۳ 10; 5 

(X); TAB 125; ደ ጉም; TAB’ DO; D(X+F) ز‎ : TAB 
5:504 +F) 

ZA NEXT X 

GOSUB 8750 

INPUT SIR) 

GOSUE 5750 

INPUT DCR} 

GOTO 1075 

REM 3 


GOSUB 8500 
INPUT R 

GOTO 24054(10 AND R= 
Ge R=2)+(3@ AND ፻:=2) + (40 
GOSUB 6659 

GOTO 83 

GOSUB 5ሯፎወፎ 

GOSUB 5550 

INPUT ዳርም 28 FO 23) 
GOTO 187 

GOSUB S5000 

GOSUE 8695 

INPUT ۳5 ) 5 , 25 TO 
GOTO 1078 


GOSUB 5000 = _ 
„PRINT AT 4,0; "MEN 


1 E S 
2455 FOR X=F "TO WE STEP 2 
2468 PRINT X; TAB S;E (ጻን زر‎ TAB 10,T 
(X); TAB 15; X*F; TAB 28; E(x+F) ; TAB 
25; TIX+F) 

NEXT 


X 
GOSUE 8759 





1 ( + ) 
AND R= 


28) 


پشت. — 










2475 INPUT TCR) 
2476 GOSUB 6780 

2477 INPUT ECR) 

2458 GOTO 1678 

2500 REM 8 

250۵5 LET A=M 

2510 LET B=M 

2515 FOR 2=ዮ TO U2 : 
2520 LET A=A+P (2) 

2525 LET BzB«ZzPIZ) . 

2530 NEXT Z pid Cos ችሮ تیوه‎ 


08 سه 





B333 LET RI] TÉ, x 
=(B-C#As/P) Z ) (P ۶ (P +F 

(2eP+F) 28) -C##2a7P) die 

2545 GOTO 1&5 

2550 REM 2 

2555 LET =M 

2560 LET B=M 

2565 FOR Z=F TO WS 

2570 LET A=A4G (23 

2575 LET B=B+Zr6 Z) 

2530 NEXT Z 

2585 LET CzOr(t90O-c«F)2 


25908 LET MIS (B-CEAZO) / ( (6:8 (ዌ+ም› # 









818 
EE ri 

R =H 

B=M 
2615 FOR Z=F TO Wd 
2620 LET A=A+SI(Z) 
2625 LET B=B+Zx5 (2) 
26368 NEXT Z 
2635 LET C=zSri(iS+F3 72 
2640 LET Mi=iG-CfTA,/S) ی‎ 6 5 ۶ ) 5 +۳ ( 4 
۲ 2 < 5 ۲۳ 76) -C£tr27/75) 
2645 GOTO 8185 
265@ REM SEMI 
2655 LET R=H 
26602 ET B=M 
2665 FOR ZzF TO 5 
2572 LET R=R+T (2) 
2675 LET B=B+4Z2T (2) 
2680 NE Z 
2685 LET C=T#tCT+F) se 
2690 LET ۳۹ ۶ ۳-0 5۳ ۲ ( مر‎ 6 4۲ E CT 4E ¥ 


(መ፤ድፐ +۳۳ £63 -Cexze7zU) 
2695 GOTO 


6165 





PRINT AT 21,8; US 
LET R$=" ENTER "4R$ 
PRINT Tal 21,15-.5 #LEN RE: R$ 





LET A= 
LET 6=M 
FOR oui TO ( (81 AND N«=G)+(6 


AND N»G) 
LET =n +N (2) 
B=B+ZIN(Z) 


x1 Z 
LET C=N#(N+F) 


"ON 
9 


e 
ችን ርን set AN 


) 
(E AND M1i»-=Q) + ۳ 


8210 PRINT AT 10,2;"SORRY, THE C 
OMPUTER IS FULL" | 
5255 gurus pado 

5 ""ENTE : 


8240 PRINT AT 21.0; "PRESS 
NUE“ 


8388 RETURN | . .... om - 


sè : 
LET MIS (B-CSAZN) 2 CINE (ዝክም) # | 





8508 PRINT AT 5,3; "SEL pon 


ANGE MAX VOL’?"; 
E BID/UOL'^?" 
6510 RETURN 
8520 LET NzF 
8525 LET YF} =M 
8530 FOR X=F TO G 
8535 LET š o 
85442 NEXT 

8542 LET ጸፍ (F y ="" `° 
6555 RETURN 


8575 LET x a 
6560 NEXT 

8582 LET 88 (2) en 
8565 RETUR 


6665 NEXT 


ooo 
86580 LET Rg=“MAXIMUM PRICE OF ST 


OCK” 

sess GOSUB 59060 . 
86930 RETURN 

BERI LET R$z"MhRX VOLUME TRADED í 
8700 GOSUB 5050 
6705 RETURN 

8715 DIM B$ (LEN a 
5 720 FOR ZsF TO LE 
ris d LET Es (Z) “CHAS 


(Z) ) 

8739 NEXT Z 
S735 RETURN 
6750 LET ን ይ TO BE CHANGED” 
8755 GOSUB 606590 

6760 INPUT R 

8765 LET R$-z'"CLOSING BID" 
5770 GOSUB 5060 
8775 RETURN 

6760 LET R$z" "VOLUME 
6765 GOSUB 8060 
6790 RETURN 

56 66 PRINT AT 0,15 
TO Y(1)) R$ (1, 


Z$ 
8805 PRINT AT F, M; WS 
5 6 1 6۵ RETURN 


R$ 
(125+CODE R$ 


(HDS) ” 


> YOS)3);A$1(S3,., TO ( 
8830 GOTO 6505 





^ 8858535 PRINT AT M,15-.5£szLEN A$ité, 
' TO Yt43)2);n$t(4, TO (423) ;AT M,31; 


ድጓ 

6640 GOTO 5 
6845 PRINT AT M,215-. 
TO YI(5));A$(S, TO Yi 


LE 

8350 GOTO ይይወ= 

6655 FOR X=F TO 29 
886Q LET A(X) =A(X+F) 
&665 NEXT X 

6570 RETURN 

585 75 FOR xX=F TO 29 
8850 LET B(X) =BIX+F) 
6685 NEXT X 

8890 RETURN 

8895 FOR X=F TO 29 
SABA LET C(x) =C(X+F) 
8905 NEXT Xx 

6910 RETURN 

8915 FOR XzF TO 29 
6920 LET D(X} =DIX+F) 


xLEN 6 5 ر‎ 
));AT M,SI; 


au 


8935 FOR X=F TO 29 
8940 LET E(X)=E(X++F) 
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